home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 September / Ahoy_Magazine_86-09_1986_Double_L.d64 / Generic Game 2 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  721b  |  30 lines
  1. 0 poke 53280,1:poke 53281,1
  2. 1 rem commodares problem #29-2:
  3. 2 rem     generic game
  4. 3 rem  methods for choosing
  5. 4 rem  four unequal digits
  6. 5 rem
  7. 10 rem  david alan wright
  8. 20 n$="1234567890":fori=1to4:r=int(rnd(1)*(11-i))+1:d$(i)=mid$(n$,r,1):e=11-i-r
  9. 30 n$=mid$(n$,1,r-1)+mid$(n$,r+1,e):next
  10. 40 for q=1 to 4 : print d$(q); : next
  11. 50 rem
  12. 60 rem  mike stype
  13. 70 forz=0to9:a$(z)=right$(str$(z),1):next
  14. 80 r=int(rnd(1)*10):if a$(r)="x" then 80
  15. 90 b$=b$+a$(r) : a$(r)="x": if len(b$)<4 then 80
  16. 100 print : print b$
  17. 110 rem
  18. 120 rem  karen middaugh
  19. 130 for i=1 to 4 : b=i
  20. 140 a(i)=int(rnd(1)*10)
  21. 150 b=b-1 : if b=0 then next : goto 180
  22. 160 if a(i)=a(b) then b=i : goto 140
  23. 170 goto 150
  24. 180 for q=1 to 4 : print a(q); : next
  25. 190 rem
  26. 200 rem  david hoffner
  27. 210 for y=0 to 3
  28. 220 x=int(rnd(0)*10):on z(x) goto 220:z(x)=1:a$=a$+right$(str$(x),1):next
  29. 230 print : print a$
  30.